home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh31.d64 / mailbox v3.0 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  25KB  |  727 lines
  1. 0 POKE2040,0:POKE2041,0:POKE646,5:GOTO4120
  2. 1 CLOSE1:OPEN1,8,0,"$":GET#1,A$,A$:E$=CHR$(0):!PRINTC$+C$
  3. 2 GET#1,A$,A$,H$,L$:IFSTTHEN:!PRINTC$+C$:CLOSE1:RETURN
  4. 3 !PRINTSTR$(ASC(H$+E$)+256*ASC(L$+E$))
  5. 4 IF RS AND 1 THEN CLOSE1:RETURN
  6. 5 GET#1,A$,B$:IFA$<>"" AND B$<>""THEN:!PRINTA$+B$:GOTO4
  7. 6 !PRINTA$+C$
  8. 7 GOTO2
  9. 70 POKECX,0:!PRINTC$+C$+C$:A$=""
  10. 80 D$="":INPUT#1,D$:D$=A$+D$:S1=ST
  11. 90 IFS1<>0ORPEEK(CX)=255THEN:!PRINTC$+C$+">>[160][198]ILE[160][197]NDE[160]<<":CLOSE1:RETURN
  12. 100 !PRINTC$+C$+D$+C$:!PRINT"[205]SG.[160]VON[160]"
  13. 110 INPUT#1,F$:!PRINTF$:!PRINTC$+C$:GOSUB 7700:IFPEEK(CX)=255THEN90
  14. 120 GET#1,A$:A$="":GET#1,A$:S1=ST
  15. 130 IFS1<>0THEN90
  16. 140 IFS4=1THEN:!PRINTC$+">"+C$:GOTO160
  17. 150 !PRINTC$+">"+C$:IF(PEEK(ER)AND16)=0THENFL=1:FC=1:CLOSE1:RETURN
  18. 160 GOTO80
  19. 170 ZZ=76:GOSUB 7800:IFFL=1THENRETURN                    
  20. 180 PRINT:EI$(I)=A$:IFA$="..."ORPEEK(KZ)=255THENRETURN
  21. 200 GF=GF+LEN(A$):IFGF>EBTHENEI$(I)="...":!PRINTC$+C$+"[197]>[160][218]UVIELE[160][194]YTES":RETURN
  22. 210 GOTO170
  23. 220 AA$="":FL=0
  24. 230 IFS4=1THEN250
  25. 240 IF(PEEK(ER)AND16)=0THENFL=1:FC=1:RETURN
  26. 250 IF SP=1 THEN GOTO260
  27. 255 !INPUTAA$,50:GOTO 270
  28. 260 !INPUTAA$,50,ASC("-")
  29. 270 IF RS AND 128 THEN FL=1:FC=1:RETURN
  30. 360 RETURN
  31. 370 IFPEEK(198)=0THENGOTO230
  32. 380 GETA$:IFA$=C1$THENRETURN
  33. 390 IFA$=D4$ANDLEN(AA$)-1<0THEN230
  34. 400 IFA$=D4$THENL1=LEN(AA$):AA$=LEFT$(AA$,L1-1):PRINT#2,D5$;:PRINTA$;:GOTO230
  35. 410 A$=CHR$(PEEK(52736+ASC(A$)))
  36. 420 GOTO310
  37. 430 CLOSE1
  38. 440 REM
  39. 450 FF=0:OPEN4,8,2,"USERLISTE,S,R"
  40. 460 INPUT#4,AN$:INPUT#4,AP$:IFAN$=SB$THENFF=0:NA$=AN$:CLOSE4:RETURN
  41. 470 IFST<60THEN460
  42. 480 FF=1:CLOSE4:RETURN
  43. 500 GOTO450
  44. 510 CZ=56328:POKECZ+7,PEEK(CZ+7)AND127:POKECZ+6,PEEK(CZ+6)OR128
  45. 520 PRINT"[196]ISK[160]READY.":PRINT:PRINT
  46. 530 INPUT"[218]EIT[160][160][160][160][160][160][160][160][160](HHMM)";A$:H=VAL(LEFT$(A$,2)):M=VAL(MID$(A$,3,2))
  47. 540 INPUT"[212]AG[160][160][160][160][160][160][160][160][160][160](1-31)";DN
  48. 550 INPUT"[205]ONAT[160][160][160][160][160][160][160][160](1-12)";DM
  49. 555 INPUT"[202]AHR  [160][160][160][160][160]        ";JR$
  50. 557 DT$=RIGHT$(STR$(DN),2)+"."+DM$(DM)+"[160]"+JR$
  51. 560 S=VAL(RIGHT$(A$,2)):IFH>11THENH=H+68
  52. 570 POKECZ+3,16*INT(H/10)+H-INT(H/10)*10:POKECZ+2,16*INT(M/10)+M-INT(M/10)*10
  53. 580 POKECZ+1,16*INT(S/10)+S-INT(S/10)*10:POKECZ,0
  54. 590 S4=1:!PRINTC$+C$+"[211]YSOP[160]ON/OFF[160](1/0)":GOSUB220:FO=VAL(AA$)
  55. 600 !PRINTC$+"[196]RUCKER[160]ON/OFF(1/0)":GOSUB220:DRU=VAL(AA$):S4=0
  56. 610 IFS5=1THENRETURN
  57. 620 PRINT"[147]":RETURN
  58. 630 CZ=56328:H=PEEK(CZ+3):M=PEEK(CZ+2):S=PEEK(CZ+1):T=PEEK(CZ):FG=1
  59. 640 IFH>32THENH=H-128:FG=0:IFH=0THENH=12:GOTO690
  60. 650 H=INT(H/16)*10+H-INT(H/16)*16:ONFGGOTO680
  61. 660 IFH=12THEN690
  62. 670 H=H+12
  63. 680 IFH=12THENH=0
  64. 690 M=INT(M/16)*10+M-INT(M/16)*16
  65. 700 H$=STR$(H):IFLEN(H$)=2THENH$="[160]0"+RIGHT$(H$,1)
  66. 710 M$=STR$(M):IFLEN(M$)=2THENM$="[160]0"+RIGHT$(M$,1)
  67. 720 IFPRO=1THENPRO=0:RETURN
  68. 730 H$=RIGHT$(H$,2):M$=RIGHT$(M$,2):!PRINTH$+"."+M$:RETURN
  69. 740 !PRINT C$+C$+C$:IFZ1=0THEN790
  70. 750 !PRINT MID$(MN$(Z1,0),4,L-3)+C$
  71. 760 FORZ=1TOL-3:!PRINT"-":NEXTZ:!PRINTC$
  72. 770 FORZ=1TO9:IFMN$(Z1,Z)<>""THEN:!PRINTMN$(Z1,Z)+C$
  73. 780 NEXTZ:!PRINT C$:RETURN
  74. 790 !PRINT"[200]AUPTMENU"+C$+"---------"+C$
  75. 800 FORZ=1TO9:IFMN$(Z,0)<>""THEN:!WAITMN$(Z,0)+C$,0,0,1
  76. 810 NEXTZ:!PRINT"99[160][204][207][199][207][198][198]"+C$+C$:RETURN
  77. 820 EI$(1)="..."
  78. 830 GF=0:I=1:FS=0:SN$=MN$(Z1,Z2):FP=1:GOSUB860:FP=0:!PRINTC$+C$
  79. 840 IFFS=1THENFM=FM+1:GOSUB3960
  80. 850 RETURN
  81. 860 IFFX=1THEN:!PRINTC$+C$+"[197]>[160][196]IE[160][196]ISKETTE[160]IST[160]VOLL."+C$:RETURN
  82. 870 IFEX=2THEN:!PRINT C$+C$+"[197]>":GOTO990
  83. 880 !PRINT C$+C$+C$+"[197]DITOR"+C$+"---------"+C$:IFEX=1GOTO980
  84. 890 !PRINT"[209][160][201]NS[160][205]ENUE"+C$+C$
  85. 900 !PRINT"[197][160][212]EXT[160]EINGEBEN"+C$
  86. 910 !PRINT"[218][160][218]EILE[160]AENDERN"+C$
  87. 920 !PRINT"[204][160][212]EXT[160]LESEN"+C$
  88. 930 IF PRI =1THEN:!PRINT"[211][160][212]EXT[160]DRUCKEN"+C$:GOTO950
  89. 940 !PRINT"[211][160][212]EXT[160]ABSAVEN"+C$
  90. 950 !PRINT"[196][160][197]DITOR[160]LOESCHEN"+C$
  91. 960 !PRINT"[195][160][197]CHO[160]AUS"+C$+C$
  92. 970 !PRINT"[194]EIM[160]UPLOAD[160]VON[160][212]EXTEN,[160][197]CHO"+C$+"MIT[160]'[195]'[160]ABSCHALTEN!"+C$+C$
  93. 980 !PRINTC$+"[160][196]EINE[160][215]AHL[160]>":IFPEEK(631)=95THENGOSUB5080
  94. 990 POKE667,PEEK(668):ZZ=1:GOSUB7800:IFFL=1THENRETURN
  95. 1000 IFA$=KQ$ORA$=GQ$ORA$=""THENIFSIC=1THEN6350
  96. 1010 IFA$=KQ$ORA$=GQ$ORA$=""THENFE=0:RETURN
  97. 1020 IFA$=KE$ORA$=GE$THENSIC=1:GOTO1110
  98. 1030 IFA$=KC$ORA$=GC$THENFE=1:!PRINT"[160][197]CHO[160]AUS"+C$:IFEX<>2THEN980
  99. 1040 IFEX=2AND(A$=KC$ORA$=GC$)THEN860
  100. 1050 IFA$=KZ$ORA$=GZ$THEN1280
  101. 1060 IF((A$=KS$)OR(A$=GS$))AND(DRU = 1)AND(X=12) THEN SIC=0:GOTO6240
  102. 1070 IFA$=KS$ORA$=GS$THENSIC=0:GOTO1350
  103. 1080 IFA$=KL$ORA$=GL$THEN1590
  104. 1090 IFA$=KD$ORA$=GD$THEN1560
  105. 1100 !PRINT"->":GOTO990
  106. 1110 !PRINTC$+C$+C$:IFEX=2THEN1170
  107. 1120 IFEX=1THEN1160
  108. 1130 !PRINT"[199]IB[160]JETZT[160]DEN[160][212]EXT[160]EIN."+C$
  109. 1140 !PRINT"[196]ER[160][212]EXT[160]DARF[160]MAXIMAL"+C$
  110. 1150 !PRINTSTR$(EB)+"[160][194]YTES[160]LANG[160]SEIN"+C$+C$+C$
  111. 1160 !PRINT"[205]IT[160]DER[160][218]EILE[160]'...'[160][197]INGABE[160]BEENDEN."+C$+C$
  112. 1170 IFFE=1THEN1230
  113. 1180 !PRINTRIGHT$(STR$(I),2)+">":ZZ=76:GOSUB7800:IFFL=1THENRETURN
  114. 1190 !PRINTC$:EI$(I)=A$:GF=GF+LEN(A$):IFA$="..."ORPEEK(KZ)=255THEN860
  115. 1200 I=I+1:IFI>=EZTHENEI$(EZ)="...":!PRINTC$+C$+"[197]>[160][218]UVIELE[160][218]EILEN":GOTO860
  116. 1210 IFGF>EBTHENEI$(I)="...":!PRINTC$+C$+"[197]>[160][218]UVIELE[160][194]YTES":GOTO860
  117. 1220 GOTO1180
  118. 1230 IFEX<>0THEN1250
  119. 1240 !PRINT"[214]ON[160]NUN[160]AN[160]KEIN[160][197]CHO[160]MEHR."+C$+"[196]U[160]KANNST[160]MIT[160]300[160][194]AUD[160]SENDEN."
  120. 1250 !PRINTC$+C$+">"+C$+C$+C$:POKESD,0
  121. 1260 GOSUB170:POKESD,1:IFFL=1THENRETURN
  122. 1270 !PRINTC$+C$+"[213]EBERTRAGUNG[160]IST[160]BEENDET."+C$:FE=0:GOTO860
  123. 1280 !PRINTC$+C$+"[160][160][215]ELCHE[160][218]EILE[160]>"
  124. 1290 ZZ=3:GOSUB 7800:IFFL=1THENRETURN
  125. 1300 V=VAL(A$):IFV>EZ+1THEN1280
  126. 1305 IFV<0THENCLOSE1:OPEN1,8,2,"PROTOKOL,S,A":PRINT#1,"ABS":ZX=1:GOTO5360
  127. 1310 IFV=0THEN860
  128. 1320 !PRINTC$+C$+C$+RIGHT$(STR$(V),2)+">"+EI$(V)+C$+RIGHT$(STR$(V),2)+">"
  129. 1330 ZZ=77:GOSUB 7800:IFFL=1THENRETURN
  130. 1340 EI$(V)=A$:GOTO860
  131. 1350 IFGF<10OREI$(1)="..."THEN:!PRINTC$+C$+"[197]>[160][197]DITOR[160]LEER"+C$+C$:GOTO860
  132. 1360 !PRINTC$+C$+"[160][160][211]AVE,[160]MACH[160]MAL[160]EIN[160][211]CHLAEFCHEN"+C$
  133. 1370 IFFP=1THEN1480
  134. 1380 CLOSE6:OPEN6,F2,6,"FILES,S,A":PRINT#6,SN$,VN$:CLOSE6
  135. 1390 CLOSE1:OPEN1,F1,3,"XY,S,W":Z=1
  136. 1400 PRINT#1,DT$:PRINT#1,VN$
  137. 1410 IFEI$(Z)="..."ORZ>EZTHEN1430
  138. 1420 PRINT#1,EI$(Z):EI$(Z)="":Z=Z+1:GOTO1410
  139. 1430 PRINT#1,CHR$(255):CLOSE1:OPEN1,F1,15,"C:ZW=XY,"+SN$:CLOSE1
  140. 1440 OPEN1,F1,15,"S:"+SN$:CLOSE1:OPEN1,F1,15,"R:"+SN$+"=ZW":CLOSE1
  141. 1450 OPEN1,F1,15,"S:ZW,XY":CLOSE1:!PRINT"[160][160][207][203]!"+C$:GF=0:I=1:EI$(1)="..."
  142. 1460 IFEX=2THEN860
  143. 1470 GOTO 980
  144. 1480 CLOSE1:OPEN1,F2,3,"\"+SN$+",S,W":CLOSE1:OPEN1,F2,3,"\"+SN$+",S,A":Z=1
  145. 1490 PRINT#1,DT$:PRINT#1,VN$
  146. 1500 IFEI$(Z)="..."ORZ>EZTHEN1520
  147. 1510 PRINT#1,EI$(Z):EI$(Z)="":Z=Z+1:GOTO1500
  148. 1520 PRINT#1,CHR$(255):CLOSE1:!PRINT" [199]ESCHAFFT"+C$:GF=0:I=1:EI$(1)="...":FS=1
  149. 1530 IFS4=1THEN5530
  150. 1540 IFEX=2THEN860
  151. 1550 GOTO980
  152. 1560 !PRINT"[160][199]ELOESCHT"+C$:FORPO=1TOEZ:EI$(PO)="":NEXTPO:EI$(1)="...":GF=0:I=1
  153. 1570 IFEX=2THEN860
  154. 1580 GOTO980
  155. 1590 !PRINTC$+C$+"[160][160][193]B[160]WELCHER[160][218]EILE[160]>":ZZ=3:GOSUB 7800
  156. 1600 IFFL=1THENRETURN
  157. 1610 !PRINTC$+C$:Z=VAL(A$):IFZ>ITHEN1670
  158. 1620 IFZ<0THENOPEN1,8,2,"PROTOKOL,S,A":PRINT#1,"ABS":ZX=1:GOTO5360
  159. 1630 IFEI$(Z)="..."THEN1670
  160. 1640 IFZ>=EZ+1THEN1700
  161. 1650 !PRINTRIGHT$(STR$(Z),2)+">"+EI$(Z)+C$:GETA$:IFA$=CHR$(24)THEN1670
  162. 1660 Z=Z+1:GOTO1630
  163. 1670 !PRINTC$+"[160][160][210][197][212][213][210][206][160]>":ZZ=1:GOSUB7800
  164. 1680 IFFL=1THENRETURN
  165. 1690 GOTO 860
  166. 1700 !PRINTC$+C$+"[197]>[160][218]EILE[160]...[160]VERGESSEN."+C$:EI$(EZ)="...":GOTO1670
  167. 1710 IFFO=1THEN1730
  168. 1720 !PRINTC$+C$+C$+"[196]ER[160][211]YSOP[160]IST[160]LEIDER[160]NICHT[160]ANWESEND."+C$+C$+C$:RETURN
  169. 1730 RESTORE:!PRINTC$+C$+C$+"[201]CH[160]SCHAU[160]MAL[160]OB[160]ICH[160]IHN[160]FINDE.[160][215]ENN"+C$
  170. 1740 !PRINT"ES[160][196]IR[160]ZU[160]LANGWEILIG[160]WIRD,[160]DRUECK"+C$
  171. 1750 !PRINT"EINFACH[160][195][212][210][204]-[216]"+C$
  172. 1760 PRINT"[213]SER[160]"+VN$+"[160][146]RUFT[160][196]ICH."
  173. 1770 GOSUB6460
  174. 1780 A$=""                                                                     
  175. 1785 GET#2,A$:IFA$=CHR$(24)THEN:!PRINTC$+C$:POKE54296,0:ME=0:POKEAA,0:RETURN
  176. 1790 IF(PEEK(ER)AND16)=0THENFL=1:FC=1:POKEAA,0:RETURN
  177. 1800 IFPEEK(198)=0THEN1770
  178. 1810 !PRINTC$+C$+C$+"[211]UPER,[160]ER[160]WAR[160]IN[160]DER"+C$:POKE54296,0:ME=0:GETA$
  179. 1820 !PRINT"[206]AEHE.[160][200]AST[160][199]LUECK[160]GEHABT."+C$+C$
  180. 1830 !PRINT"[213]M[160]DEN[160][196]IALOG[160]DEM[160][211]YSOP[160]ZU[160]UEBERGEBEN,"+C$
  181. 1840 !PRINT"BITTE[160]*[160]([193]STERISK)[160]DRUECKEN."+C$
  182. 1850 POKE667,PEEK(668)
  183. 1860 !PRINTC$+C$+"[211]YSOP[160]>"
  184. 1870 GETA$:IF(A$=""ORA$<D1$)ANDA$<>C1$ANDA$<>D4$THEN1870
  185. 1880 IFA$=CHR$(95)THENGOTO2000
  186. 1890 IFA$=D4$THEN:!PRINTD5$:GOTO1870
  187. 1900 !PRINTA$:IFA$=CHR$(42)THEN1930
  188. 1910 IFA$=CHR$(13)THEN:!PRINTCHR$(10)
  189. 1920 GOTO1870
  190. 1930 POKE667,PEEK(668):!PRINT C$+C$+C$+"[213]SER[160]>"
  191. 1940 GET#2,A$:IF(A$=""ORA$<D1$ORA$>D2$ORA$=D3$)ANDA$<>C1$ANDA$<>D5$THEN1970
  192. 1950 IFA$=D5$ORA$=D2$THENPRINT#2,A$;:PRINTD4$;:GOTO1970
  193. 1960 PRINT#2,A$;:PRINTA$;:IFA$=CHR$(42)THEN1860
  194. 1970 IFA$=CHR$(13)THEN:!PRINTCHR$(10)
  195. 1980 IFPEEK(198)=0THEN1940
  196. 1990 GETA$:!PRINTC$:GOTO1860
  197. 2000 PRINT"[210]ESTZEIT[160]IN[160][205]IN.[160](1-";RT;")";:INPUTZ:IFZ>RT ORZ<0THEN2000
  198. 2010 Z=RT-Z:Z$=STR$(Z):Z$="0"+RIGHT$(Z$,LEN(Z$)-1):Z$=RIGHT$(Z$,2)
  199. 2020 TI$="00"+Z$+"00":!PRINTC$:RETURN
  200. 2030 CLOSE1:OPEN1,F1,3,MN$(Z1,Z2)+",S,R":!PRINT C$+C$+C$+C$+C$
  201. 2040 IFFU=1THEN:!PRINTMID$(MN$(Z1,Z2),4,L-3)+C$:GOTO2060
  202. 2050 !PRINTMID$(MN$(Z1,Z2),4,L-3)+C$
  203. 2060 FORPO=1TOL-3:!PRINT "-":NEXTPO
  204. 2070 !PRINTC$:GOSUB 7700:CLOSE1:!PRINTC$+C$+C$+">>[160][198]ILE[160][197]NDE[160]<<"+C$+C$:RETURN
  205. 2080 CLOSE1:OPEN1,F1,3,MN$(Z1,Z2)+",S,R":!PRINTC$+C$+C$
  206. 2090 IFEX=2THEN:!PRINTC$+C$+LEFT$(MN$(Z1,Z2),2)+">":GOTO2180
  207. 2100 IFFU=1THEN:!PRINTMID$(MN$(Z1,Z2),4,L-3):GOTO2120
  208. 2110 !PRINTMID$(MN$(Z1,Z2),4,L-3)
  209. 2120 !PRINTC$:FORPO=1TOL-3:!PRINT "-":NEXTPO:!PRINT C$
  210. 2130 FP=0:IFEX=1THEN2170
  211. 2140 !PRINT"[209][160][201]NS[160][205]ENUE"+C$+C$
  212. 2150 !PRINT"[204][160][204]ESEN"+C$
  213. 2160 !PRINT"[211][160][211]CHREIBEN"+C$
  214. 2170 !WAITC$+"[160][160][196]EINE[160][215]AHL[160]>"
  215. 2180 POKE667,PEEK(668):ZZ=1:GOSUB7800:IFFL=1THENRETURN
  216. 2190 IFA$=KQ$ORA$=GQ$ORA$=""THENCLOSE1:!PRINT C$+C$+C$:RETURN
  217. 2200 IFA$=KL$ORA$=GL$THEN2260
  218. 2210 IFA$=KS$ORA$=GS$THEN2230
  219. 2220 !PRINT"->":GOTO2180
  220. 2230 IFFV=1THEN:!PRINT C$+C$+"[196]U[160]MUSST[160][196]ICHZUERST[160]EINSCHREIBEN.":GOTO2080
  221. 2240 GF=0:I=1:EI$(1)="...":SN$=MN$(Z1,Z2):CLOSE1:GOSUB860:IFFL=1THENRETURN
  222. 2250 GOTO2080
  223. 2260 GOSUB70:IFFL=1THENRETURN
  224. 2270 GOTO2080
  225. 2280 IFEX=2THEN:!PRINTC$+C$:GOTO2320
  226. 2290 !PRINTC$+C$+C$+C$+"[213]SERLISTE"+C$+"---------"+C$+C$
  227. 2300 !PRINT"(MIT[160][195][212][210][204]-[216][160]ABBRECHEN)"+C$+C$+C$
  228. 2320 OPEN1,8,2,"USERLISTE,S,R"
  229. 2330 INPUT#1,AA$:INPUT#1,A$:IFST=0THEN:!PRINTAA$+C$:GOTO2340
  230. 2335 CLOSE1:GOTO2360
  231. 2340 IF RS AND 1 THEN2360
  232. 2350 GOTO 2330
  233. 2360 !PRINTC$+C$+C$+">>[160][197]NDE[160][213]SERFILE[160]<<"+C$+C$+C$:CLOSE1:RETURN
  234. 2370 FP=1:IFEX=2THEN:!PRINT C$+C$:GOTO2390
  235. 2380 !PRINTC$+C$+C$+C$+"[208]ERS.[160][205]SG.[160]SCHREIBEN"+C$+"--------------------"+C$+C$
  236. 2390 !PRINT"[197]MPFAENGER[160]>":GOSUB220:IFFL=1THENRETURN
  237. 2400 IFAA$=""ORFV=1THEN:!PRINTC$+C$+C$:RETURN
  238. 2410 SB$=AA$:GOSUB430:IFFF=0THEN2450
  239. 2420 !PRINTC$+C$+"[197]MPFAENGER[160]NICHT[160]BEKANNT."+C$+C$
  240. 2430 !PRINT"[199]IB[160]DEN[160][197]MPFAENGER[160]NEU[160]EIN[160]ODER"+C$
  241. 2440 !PRINT"KEHRE[160]MIT[160]<[195][210]>[160]INS[160][205]ENU[160]ZURUECK."+C$+C$+C$:GOTO2390
  242. 2450 !PRINTC$+C$+"[197]MPFAENGER[160]BEKANNT."
  243. 2460 GF=0:I=1:EI$(1)="..."
  244. 2470 IFS4=1THENRETURN
  245. 2480 !PRINTC$:SN$=NA$:FP=1:GOSUB860:FP=0:!PRINT C$+C$+C$:RETURN
  246. 2490 IFFX=1THEN:!PRINTC$+C$+C$+"[197]>[160][203]EIN[160][197]INTRAG,[160]DA[160][196]ISK[160]VOLL."+C$:RETURN
  247. 2500 !PRINTC$+C$+C$+C$+"[213]SERNEUEINTRAG"+C$+"--------------"+C$:CLOSE1
  248. 2510 REM
  249. 2520 !PRINTC$+"[208]SEUDONYM[160]>":GOSUB220:IFFL=1THENRETURN
  250. 2530 !PRINTC$:NA$=AA$:IFNA$=""ORVN$<>"GAST"THENRETURN
  251. 2540 SB$=NA$:GOSUB430:IFFF=0THEN:!PRINTC$+C$+"[197]XISTIERT[160]SCHON."+C$+C$:GOTO2520
  252. 2550 IFLEFT$(NA$,1)=CHR$(32)THEN2520
  253. 2560 !PRINTC$+"[208]ASSWORT[160][160]>":GOSUB220:IFFL=1THENRETURN
  254. 2570 IFAA$=""ORLEFT$(AA$,1)=CHR$(32)THEN2560
  255. 2580 PA$=AA$:!PRINT C$+C$+"[197]INGABEN[160]RICHTIG.[160](J/N)[160]>":ZZ=1:GOSUB 7800
  256. 2590 IFFL=1THENRETURN
  257. 2600 IFA$<>KJ$ANDA$<>GJ$THEN2490
  258. 2610 !PRINTC$+C$+C$+"[199]IB[160]ZUR[160][203]ONTROLLE[160]BEIDES[160]NOCHMAL[160]EIN."+C$
  259. 2620 !PRINTC$+"[208]SEUDONYM[160]>":GOSUB220:IFFL=1THENRETURN
  260. 2630 IFAA$<>NA$THEN:!PRINTC$+C$+"[197]>[160][203]EINE[160][213]EBEREINSTIMMUNG.":GOTO2490
  261. 2640 !PRINTC$+C$+"[208]ASSWORT[160][160]>":GOSUB220:IFFL=1THENRETURN
  262. 2650 IFAA$<>PA$THEN:!PRINTC$+C$+"[197]>[160][203]EINE[160][213]EBEREINSTIMMUNG.":GOTO2490
  263. 2660 !PRINTC$+C$+C$+"[194]ITTE[160]WARTEN."+C$
  264. 2670 VN$=NA$:CLOSE1:OPEN1,F2,3,"USERLISTE,S,A":PRINT#1,NA$:PRINT#1,PA$
  265. 2680 CLOSE1:OPEN1,F2,3,"USERLISTE.BACKUP,S,A":PRINT#1,NA$:PRINT#1,PA$
  266. 2700 AU=AU+1:CLOSE1:OPEN1,8,2,"@:ULIST.INDEX,S,W":PRINT#1,AU:CLOSE1
  267. 2710 !PRINTC$+C$+C$+"[200]ERZLICH[160][215]ILLKOMMEN[160]ALS[160][213]SER."+C$:FV=0
  268. 2720 GOSUB3960
  269. 2730 POKE1114,42:PRINT"":RETURN
  270. 2740 !PRINTC$+C$+C$+"[204]AENGERE[160][212]EXTE"+C$+"--------------"+C$:FS=0
  271. 2750 IFEX<>0THENGOTO2790
  272. 2760 !PRINT"[196]U[160]KANNST[160]HIER[160][212]EXTE[160]BIS[160]ZU[160]5[160][203][194]"+C$
  273. 2770 !PRINT"EINGEBEN"+C$+C$
  274. 2790 EZ=150:EB=5000:SN$=MN$(Z1,Z2):FP=1:GF=0:I=1:EI$(1)="..."
  275. 2800 GOSUB860:FP=0:EZ=50:EB=1500:!PRINT C$+C$
  276. 2810 IFFS=1THENFM=FM+1:GOSUB3960
  277. 2820 RETURN
  278. 2830 !PRINTC$+C$+C$+"[197]X-[211]TATUS>"+STR$(EX)+"[160][160][206]EUER[160][211]TATUS[160](0-2)>"
  279. 2840 ZZ=1:GOSUB7800:IFFL=1THENRETURN
  280. 2850 EX=VAL(A$):IFEX<0OREX>2THEN2830
  281. 2860 !PRINTC$+C$:RETURN
  282. 2870 !PRINTC$+C$+C$+"[218]EIT[160]IM[160][211]YSTEM>[160]"
  283. 2880 !PRINTMID$(TI$,3,2)+"[160]MIN.[160]"+RIGHT$(TI$,2)+"[160]SEC.>"
  284. 2890 GOTO2910
  285. 2900 !PRINTC$+C$+C$+DT$+"[160][160]":GOSUB630:!PRINT">"
  286. 2910 ZZ=1:GOSUB 7800:IFFL=1THENRETURN
  287. 2920 !PRINTC$+C$:RETURN
  288. 2930 IFFX=1THEN:!PRINTC$+C$+C$+"[197]>[160][203]EIN[160]LOESCHEN,[160]DA[160][196]ISK[160]VOLL."+C$:RETURN
  289. 2940 !PRINTC$+C$+C$+"[213]SER[160]LOESCHEN"+C$+"-------------"+C$
  290. 2950 !PRINTC$+"[208]SEUDONYM[160]>":GOSUB220:IFFL=1THENRETURN
  291. 2960 !PRINTC$:NA$=AA$:IFNA$=""ORNA$<>VN$ THENRETURN
  292. 2970 !PRINTC$+"[208]ASSWORT[160][160]>":GOSUB220:IFFL=1THENRETURN
  293. 2980 PA$=AA$:IFAA$=""THENRETURN
  294. 2990 SB$=NA$:GOSUB430:IFFF=1THENRETURN
  295. 3000 IFAP$<>PA$THENRETURN
  296. 3010 !PRINTC$+C$+"[215]ILLST[160][196]U[160][196]ICH[160]WIRKLICH[160]AUS[160]DER"+C$
  297. 3020 !PRINT"[213]SERLISTE[160]LOESCHEN[160](J/N)[160]>":ZZ=1:GOSUB 7800
  298. 3030 IFFL=1THEN RETURN
  299. 3040 IFA$<>KJ$ANDA$<>GJ$THENRETURN
  300. 3050 CLOSE1:OPEN1,F2,4,"MISTHAUFEN,S,A":PRINT#1,NA$:CLOSE1
  301. 3060 RETURN
  302. 3070 CLOSE1:OPEN1,F2,3,"USERGROUPS,L,"+CHR$(25):IFDA=1THENX=1:DA=0:GOTO3140
  303. 3080 !PRINTC$+C$+C$+C$+"[213]SERGROUPS"+C$+"----------"+C$+C$
  304. 3090 X=1:!PRINT"[208]ASSWORT[160]>":GOSUB220:IFFL=1THENRETURN
  305. 3100 IFAA$=""ORAA$="\"ORFV=1THEN:!PRINTC$+C$+C$:CLOSE1:RETURN
  306. 3110 IFAA$=UG$(X)THEN3140
  307. 3120 IFX<10THENX=X+1:GOTO3110
  308. 3130 !PRINTC$+C$+"[213]SERGROUP[160]EXISTIERT[160]NICHT."+C$+C$:CLOSE1:RETURN
  309. 3140 UN=X:!PRINTC$+C$+"IDENTIFIZIERT."+C$:X=0:CLOSE3:OPEN3,F2,15
  310. 3150 X=X+1:A$=""
  311. 3160 PRINT#3,"P"+CHR$(3)+CHR$(UN*10+X)+CHR$(0)+CHR$(1):INPUT#1,UM$(X)
  312. 3170 PRINT#3,"P"+CHR$(3)+CHR$(UN*10+X)+CHR$(0)+CHR$(22):INPUT#1,A$
  313. 3180 UF(X)=VAL(A$):IFX<9THEN3150
  314. 3190 CLOSE3:CLOSE1
  315. 3200 !PRINTC$+C$+"[211]UBMENU"+C$+"-------"+C$+"[209][160][201]NS[160][205]ENUE"+C$+C$:FORX=1TO9
  316. 3210 IFUM$(X)<>""ANDUM$(X)<>"\"THEN:!PRINTRIGHT$(STR$(X),1)+"[160]"+UM$(X)+C$
  317. 3220 NEXTX:!WAITC$+"[160][160][196]EINE[160][215]AHL[160]>"
  318. 3230 ZZ=1:GOSUB7800:IFFL=1THENRETURN
  319. 3240 Z=VAL(LEFT$(A$,1)):X=UF(Z):IFA$=""ORA$=KQ$ORA$=GQ$THEN:!PRINTC$+C$:RETURN
  320. 3250 IFX=0THEN:!PRINT"->":GOTO3230
  321. 3260 Z1=0:Z2=0:MN$(0,0)="("+RIGHT$(STR$(UN),1)+")"+UM$(Z):L=LEN(UM$(Z))+3:FU=1
  322. 3270 ONXGOSUB2080,7040,3300
  323. 3280 FU=0:IFFL=1THENFC=1:RETURN
  324. 3290 CLOSE3:CLOSE1:GOTO3200
  325. 3300 CLOSE1:OPEN1,F2,3,"USERGROUPS,L,"+CHR$(25):CLOSE3:OPEN3,F2,15
  326. 3310 !PRINTC$+C$+C$+"[208]ASSWORT[160]>":GOSUB220:IFFL=1THENRETURN
  327. 3320 IFAA$=""ORAA$="\"THENRETURN
  328. 3330 PRINT#3,"P"+CHR$(3)+CHR$(UN*10)+CHR$(0)+CHR$(18):INPUT#1,US$
  329. 3340 IFUS$=AA$THENFD=0:GOTO3390
  330. 3350 IFFD=1THENFL=1:FW=1:RETURN
  331. 3360 !PRINTC$+C$+"[197]>[160][206]ICHT[160]IDENTIFIZIERT."+C$:FD=1
  332. 3370 !PRINT"[194]EIM[160]2.[198]EHLVERSUCH[160]FLIEGSTE[160]RAUS."+C$+C$+"[205]IT[160]<[195][210]>[160]INS[160][211]UBMENU."
  333. 3380 GOTO3310
  334. 3390 !PRINTC$+C$+C$+"[213]SERGROUP[160][198]ERNWARTUNG"+C$+"---------------------"+C$+C$
  335. 3400 !PRINT"[215]ELCHE[160][206]R.[160](1-9)>":ZZ=1:GOSUB 7800:IFFL=1THENRETURN
  336. 3410 Z=VAL(A$):IFZ=0THENRETURN
  337. 3420 !PRINTC$+C$+C$+"[201]NHALT>[160]"+UM$(Z)+"[160][160][160][198]KT>"+STR$(UF(Z))
  338. 3430 !PRINTC$+C$+"1[160][193]ENDERN[160]2[160][204]OESCHEN[160]3[160][193]NHA.[160][209][160][160][209]UIT[160]>"
  339. 3440 ZZ=1:GOSUB7800:IFFL=1THENRETURN
  340. 3450 IFVAL(A$)=0THENRETURN
  341. 3460 X=VAL(A$):!PRINTC$+C$+"[197]INGABEN[160]OK[160](J/N)>":ZZ=1:GOSUB 7800
  342. 3470 IFFL=1THENFC=1:CLOSE1:RETURN
  343. 3480 IFA$<>KJ$ANDA$<>GJ$THEN3390
  344. 3490 IFX=2THEN3760
  345. 3500 IFX=3THENA$=UM$(Z):B$=STR$(UF(Z)):GOTO3600
  346. 3510 IFX=1ANDFX=1THEN:!PRINTC$+C$+"[197]>[160][196]IE[160][196]ISKETTE[160]IST[160]VOLL."+C$:RETURN
  347. 3520 IFX=1THEN3540
  348. 3530 RETURN
  349. 3540 PRINT#3,"S:"+"("+RIGHT$(STR$(UN),1)+")"+UM$(Z)
  350. 3550 !PRINTC$+C$+C$+"[206]AME[160](20)[160]>":ZZ=20:GOSUB 7800:IFFL=1THENRETURN
  351. 3560 IFA$=""ORA$="\"THENRETURN
  352. 3570 !PRINTC$+C$+"[1][160][205]SG.[198]ILE[160][160][2][160][204]ESEN[160][160][3][160][210]EMOTE[160]>"
  353. 3580 ZZ=1:XX$=A$:GOSUB 7800:B$=A$:A$=XX$:IFFL=1THENRETURN
  354. 3590 IFVAL(B$)>3ORVAL(B$)=0THEN3570
  355. 3600 PRINT#3,"P"+CHR$(3)+CHR$(UN*10+Z)+CHR$(0)+CHR$(1):PRINT#1,A$
  356. 3610 PRINT#3,"P"+CHR$(3)+CHR$(UN*10+Z)+CHR$(0)+CHR$(22):PRINT#1,B$
  357. 3620 UM$(Z)=A$:UF(Z)=VAL(B$)
  358. 3630 MN$(0,0)="("+RIGHT$(STR$(UN),1)+")"+UM$(Z):Z1=0:Z2=0:IFUF(Z)=3THEN3730
  359. 3640 IFUF(Z)=1THEN3740
  360. 3650 CLOSE3:CLOSE1:OPEN1,F1,3,MN$(0,0)+",S,W":PRINT#1,DT$:PRINT#1,VN$:PRINT#1,"INIT"
  361. 3660 PRINT#1:CLOSE1:SN$=MN$(0,0):D$=DT$
  362. 3670 !PRINTC$+C$+"[199]ARBAGE[160][195]OLL.[160](J/N)[160]>"
  363. 3680 ZZ=1:GOSUB 7800:IFFL=1THENRETURN
  364. 3690 IFA$<>KJ$ANDA$<>GJ$THEN3710
  365. 3700 !PRINTC$+C$+"[199][195][160]IN[160]PROGRESS. ":!PRINTSTR$(INT(FRE(0)/2.2))+"[160]FREE."+C$
  366. 3710 EZ=150:EB=5000:V$=VN$:VN$="SYSOPS":GOSUB860:EZ=50:EB=1500
  367. 3720 VN$=V$:DT$=D$:IFFL=1THENRETURN
  368. 3730 !PRINTC$+C$:RETURN
  369. 3740 CLOSE3:CLOSE1:OPEN1,F1,3,MN$(0,0)+",S,W":PRINT#1,DT$:PRINT#1,"USERGROUP"
  370. 3750 PRINT#1,C1$+"USERGROUP[160]INIT"+C1$:PRINT#1:CLOSE1:GOTO3730
  371. 3760 PRINT#3,"S:"+"("+RIGHT$(STR$(UN),1)+")"+UM$(Z):UM$(Z)="\":UF(Z)=0
  372. 3770 PRINT#3,"P"+CHR$(3)+CHR$(UN*10+Z)+CHR$(0)+CHR$(1):PRINT#1,"\"
  373. 3780 PRINT#3,"P"+CHR$(3)+CHR$(UN*10+Z)+CHR$(0)+CHR$(22):PRINT#1,"0":GOTO3730
  374. 3790 IFDRU=0THEN5530
  375. 3800 !PRINTC$+C$+"[208]RINTING[160]BITTE[160]WARTEN"+C$
  376. 3810 CLOSE3:OPEN3,F2,4,"PROTOKOL,S,R":CLOSE4:OPEN4,4,7
  377. 3820 INPUT#3,A$
  378. 3830 IFST=64THEN3870
  379. 3850 PRINT#4,A$:INPUT#3,A$:IFST=64THEN3870
  380. 3852 PRINT#4,A$;:INPUT#3,A$:IFST=64THEN3870
  381. 3854 PRINT#4,TAB(5);A$:INPUT#3,A$:IFST=64THEN3870
  382. 3856 PRINT#4,TAB(5);A$
  383. 3860 GOTO3820
  384. 3870 PRINT#4:CLOSE3:CLOSE4:GOTO5530
  385. 3880 !PRINTC$+C$+"[208]SEUDONYM[160]=>":GOSUB220
  386. 3890 CLOSE1:OPEN1,F2,3,"HACKERPASS,S,A"
  387. 3900 PRINT#1,AA$:CLOSE1
  388. 3910 GOTO5530
  389. 3920 RT$=STR$(RT):!PRINTC$+C$+"[218]EITLIMIT[160]("+RT$+")[160]>":GOSUB220:A$=AA$
  390. 3930 RN=VAL(A$):GOTO5530
  391. 3940 FX$=STR$(FX):!PRINTC$+C$+"[196]ISK[160]SPERREN[160]("+FX$+")[160]>":GOSUB220:A$=AA$
  392. 3950 FX=VAL(A$):GOTO5530
  393. 3960 POKE646,13:PRINTCHR$(19);:FORX=1TO7:PRINTSP$:NEXTX
  394. 3970 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";:POKE1103,103
  395. 3980 PRINTSP$:PRINT"[160][213]SERNAME>[160]              [160][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][160]"LEFT$(VN$,13);:
  396. 3990 PRINTTAB(26)"[204]OGIN>[160]"H$M$
  397. 4000 PRINT"[160][193]NRUFER[160]>"CA-1TAB(26)"[211]YSOP>";:IFFO=1THENPRINT"[160]ON[160]"
  398. 4010 IFFO=0THENPRINT"[160]OFF"
  399. 4020 PRINTTAB(1)"[208]RINTER[160]>";:IFDRU=1THENPRINT"[160]ON [160][160][160][160][160][160][160][160][160][160]";
  400. 4030 IFDRU=0THENPRINT"[160]OFF[160][160][160][160][160][160][160][160][160][160]";
  401. 4040 PRINTTAB(26)"[213]SER[160]>"AU
  402. 4050 PRINTTAB(1)"[208]ASSWORT>               [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157] "LEFT$(PA$,13);:
  403. 4060 PRINTTAB(26)"[205]SG. >"FM
  404. 4070 POKE55336,13:POKE55376,13:POKE55416,13:POKE55456,13:POKE55496,13
  405. 4080 POKE55375,13:POKE55415,13:POKE55455,13:POKE55495,13:POKE55535,13
  406. 4090 POKE1104,101:POKE1143,103:POKE1144,101:POKE1183,103:POKE1064,101
  407. 4100 POKE1184,101:POKE1223,103:POKE1224,101:POKE1263,103
  408. 4110 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":POKE646,5
  409. 4115 RETURN
  410. 4120 SYS49152:OPEN2,2,0,CHR$(6)+CHR$(224):!SET 120,120,6,3:!RON:!CON:!CLR
  411. 4130 POKE53280,0:POKE53281,0:PRINT"[147]";CHR$(14):F1=8:F2=8:RN=60
  412. 4140 DIMEI$(151),DM$(13),DM(13):POKE53272,23:RT=20:KZ=00650
  413. 4150 DIMMN$(9,9),MU(9,9)
  414. 4160 D6$=CHR$(45):D7$=CHR$(63):EB=1500:FORX=1TO39:SP$=SP$+"[160]":NEXTX
  415. 4170 CX=50284:S4=0:S3=8:F3=8:DIMII$(20):DA=0:US=0
  416. 4180 ER=56577:D1$=CHR$(32):D2$=CHR$(127):D3$=CHR$(34):D4$=CHR$(20):I=1:EZ=50
  417. 4190 D5$=CHR$(8):C1$=CHR$(13):C$=CHR$(13)+CHR$(10):SD=831:SE=829
  418. 4200 KZ$=CHR$(90):KL$=CHR$(76):POKESD,1
  419. 4210 GZ$=CHR$(122):KC$=CHR$(67):GC$=CHR$(99):KE$=CHR$(69):GE$=CHR$(101):ME=0
  420. 4220 GL$=CHR$(108):KQ$=CHR$(81):GQ$=CHR$(113):KD$=CHR$(68):GD$=CHR$(100):MSG=0
  421. 4230 KS$=CHR$(83):GS$=CHR$(115):MU(9,9)=5:MN$(9,9)="99[160][204][207][199][207][198][198]":KJ$=CHR$(74):I=1
  422. 4240 GJ$=CHR$(106):KU$=CHR$(85):GU$=CHR$(117):EI$(1)="...":CLOSE1:CLOSE3:GF=0
  423. 4250 PRINT"[147][196]ATENDISC EINLEGEN + [212]ASTE"
  424. 4260 H$="01":WAIT198,1:GETA$:OPEN1,F2,3,"ULIST.INDEX,S,R":INPUT#1,AU:CLOSE1
  425. 4270 PRINT"ULIST.INDEX EINGELESEN"
  426. 4280 REM
  427. 4290 REM
  428. 4300 REM
  429. 4350 OPEN1,F2,3,"USERGROUPS,L,"+CHR$(25):OPEN3,F2,15
  430. 4360 FORX=1TO9
  431. 4370 PRINT#3,"P"+CHR$(3)+CHR$(10*X)+CHR$(0)+CHR$(1):INPUT#1,UG$(X):NEXTX:CLOSE3
  432. 4380 PRINT"USERGROUPS  EINGELESEN"
  433. 4390 CLOSE1:OPEN1,F2,3,"MENUES,S,R"
  434. 4400 INPUT#1,A$:IFA$=CHR$(255)THEN4420
  435. 4410 INPUT#1,Z1,Z2,Z3:MN$(Z1,Z2)=A$:MU(Z1,Z2)=Z3:GOTO4400
  436. 4420 PRINT"MENUES      EINGELESEN"
  437. 4430 CLOSE1:OPEN1,F2,4,"CALLERS,S,R":INPUT#1,CA:CLOSE1:BF=FRE(0)
  438. 4440 PRINT"CALLERS     EINGELESEN"
  439. 4450 READAA,BB,CC:IFAA<0THEN4470
  440. 4460 GOTO4450
  441. 4470 FORX=1TO13:READDM$(X):READDM(X):NEXTX:FORX=820TO826:READZ:POKEX,Z:NEXTX
  442. 4480 POKE88,0:POKE89,192:POKE90,0:POKE91,192:POKE780,0:POKE781,160:SYS820
  443. 4490 POKE88,0:POKE89,0:POKE90,0:POKE91,0:POKE780,0:POKE781,224:SYS820
  444. 4500 POKE59639,6:POKE1,53:GOSUB510:PRO=0:GOSUB 630:ZD=VAL(H$)
  445. 4510 GOSUB3960:PRINT"[211]YSTEM[160]READY. ";BF;" [194]YTES [198]REE"
  446. 4512 POKE198,0:CLOSE1
  447. 4514 POKEER,PEEK(ER) AND 255-4
  448. 4515 POKE2040,PEEK(2040)+1:IFPEEK(2040)>200THENPOKE2040,0:POKE2041,PEEK(2041)+1
  449. 4517 IFPEEK(2041)=3THENPOKE2041,0:POKE53248+17,PEEK(53248+17) AND 255-16
  450. 4520 GETA$:IFA$=" "THENPOKE2041,0:POKE53248+17,PEEK(53248+17) OR 16
  451. 4522 IF(PEEK(ER) AND 16)=16 THENPOKE53248+17,PEEK(53248+17) OR 16:GOTO4530
  452. 4528 GOTO4515
  453. 4530 REM
  454. 4535 POKE2041,0:PRO=1:GOSUB 630:PRO=0:IFVAL(RIGHT$(H$,2))<ZDTHENAX=1:GOTO 5430
  455. 4540 S4=0:CLOSE1:OPEN1,F2,3,"ANFANG,S,R"
  456. 4550 !CON:!CLR:!PRINTC$+C$+C$+C$+C$+C$+C$+C$+C$
  457. 4560 !PRINT"[199].[205].[193][160][160][160][205]AILBOX[160]/[160]24[160][211]TD.[207]NLINE"+C$
  458. 4570 !PRINTC$+"[211]YSOP[160][195]RACKBIT"+C$
  459. 4580 !PRINTC$+DT$+"[160][160]":GOSUB630
  460. 4590 !PRINTC$
  461. 4595 !PRINTC$+"[204]ISTE[160]ALLER[160][205]ENUEPUNKTE[160]UND"+C$+"[193]NLEITUNG[160]AUF[160][211]EITE[160]15"+C$+C$
  462. 4600 !PRINTC$+C$+"[210][197][212][213][210][206],[160][197][216][160]ODER[160][197][216]2[160]DRUECKEN[160]->":AA$="":EX=0
  463. 4610 POKE667,PEEK(668):TI$="000000"
  464. 4620 GOSUB220:IFFL=1THEN4512
  465. 4630 IFAA$="435855"THENS3=8:S4=1:CLOSE1:VN$="GMA - BOX":GOTO5530
  466. 4640 IFAA$="EX"THENEX=1
  467. 4650 IFAA$="EX2"THENEX=2
  468. 4660 !PRINTC$+C$+C$+"[200]ERZLICH[160][215]ILLKOMMEN."+C$+C$
  469. 4670 !PRINT"[201]CH[160]BEGRUESSE[160]DEN"+STR$(CA)+".[160][193]NRUFER."+C$+C$
  470. 4680 REM
  471. 4690 GOSUB 7700:CLOSE1:POKE667,PEEK(668)
  472. 4700 !PRINTC$+C$+"[213]SERNAME[160][160]>":GOSUB 220:IFFL=1THEN4512:
  473. 4701 IFAA$="GAST"THENCLOSE3:OPEN3,F2,15:GOTO4800
  474. 4703 OPEN1,8,2,"USERLISTE,S,R":!PRINTC$+C$+"SEARCHING,[160]PLEASE[160]WAIT"+C$+C$
  475. 4705 INPUT#1,AN$:INPUT#1,AP$:IFAN$=AA$THENCLOSE1:GOTO4720
  476. 4710 IFST<60THEN4705
  477. 4715 CLOSE1:CLOSE3:OPEN3,F2,15:GOTO4770
  478. 4720 VN$=AA$:CLOSE1:CLOSE3:OPEN1,F2,3,"\"+VN$+",S,R":OPEN3,F2,15:AB=0
  479. 4730 SP=1:!PRINTC$+"[208]ASSWORT[160][160]>":GOSUB220:SP=0:IFFL=1THENCLOSE1:CLOSE3:GOTO4512
  480. 4740 PA$=AA$:IFPA$=""THENGOTO4730
  481. 4750 IFAP$=PA$THENGOTO4820
  482. 4760 !PRINTC$+C$+"[198]ALSCHES[160][208]ASSWORT!"+C$+C$:IFFD=0THENFD=1:GOTO4730
  483. 4765 IFFD=1THEN4800
  484. 4770 !PRINTC$+C$+"[206]ICHT[160]EINGETRAGEN![160][215]ENN[160]DOCH,[160]<[202]>"+C$+"DRUECKEN.[160][211]ONST[160]<[195][210]>[160]>"
  485. 4780 Z=1:GOSUB 7800:IFFL=1THEN4520
  486. 4790 IF(A$=KJ$ORA$=GJ$)ANDFD=0THENFD=1:CLOSE1:CLOSE3:GOTO4700
  487. 4800 FD=0:VN$="GAST":FV=1:RT=10
  488. 4810 INPUT#3,AB:CLOSE3:CLOSE1:GOTO4870
  489. 4820 INPUT#3,AB:CLOSE3:CLOSE1:RT=RN
  490. 4830 IFAB<>0THENCLOSE1:!PRINTC$+C$+"[203]EINE[160][205]SG.[160]FUER[160][196]ICH.":GOTO4870
  491. 4840 MSG=1:CLOSE1:OPEN1,F2,4,"\"+VN$+",S,R"
  492. 4850 GOSUB70:IFFL=1THEN5220
  493. 4860 !PRINTC$+C$+"[196]U[160]KANNST[160]DIE[160][205][211][199][160]IN[160]42[160]NOCHMALS"+C$+"LESEN!"+C$+C$
  494. 4870 IFVN$="GAST"THENFV=1:!PRINTC$+C$+"[196]U[160]KANNST[160][196]ICH[160]IN[160]31[160]EINTRAGEN."+C$+C$
  495. 4880 CA=CA+1:!PRINTC$+C$+C$+"[201]CH[160]WUENSCHE[160][196]IR,[160]"+VN$+","+C$
  496. 4890 !PRINT"VIEL[160][214]ERGNUEGEN."+C$+C$:GOSUB3960:POKE1114,42:PRINT""
  497. 4900 RM=RT-VAL(MID$(TI$,3,2)):IFRM<=0THENFL=1:FI=1:GOTO5220
  498. 4910 RM$=RIGHT$(STR$(RM),2):IFRM<10THENRM$=RIGHT$(RM$,1)
  499. 4920 IFEX=2THEN:!PRINTC$+C$+RM$+"[160][200]>":GOTO4950
  500. 4930 !PRINTC$+C$+"[206]OCH[160]"+RM$+"[160][205]IN."+C$
  501. 4940 !PRINT"[211]EITE[160]-->"
  502. 4950 IFPEEK(653)=2THENGOSUB5080
  503. 4960 POKE667,PEEK(668)
  504. 4970 ZZ=2:GOSUB 7800:IFFL=1THENGOTO 5220
  505. 4980 IFVAL(LEFT$(A$,2))=0ORLEN(A$)=1THENZ1=0:X=1:GT=1:GOTO5030
  506. 4990 Z1=VAL(LEFT$(A$,1)):Z2=VAL(RIGHT$(A$,1)):X=MU(Z1,Z2):L=LEN(MN$(Z1,Z2))
  507. 5000 IFL=0THEN:!PRINT"->":GOTO4950
  508. 5010 IFX>13THENX=X-13:GOTO5050
  509. 5020 GT=1
  510. 5030 ONXGOSUB740,2030,2080,1710,5290,820,6560,2370,2740,2280,3070,6230,6670
  511. 5040 IFGT=1THENGT=0:GOTO5060
  512. 5050 ONXGOSUB2490,2930,2830,2870,2900,6670,6950,6970,7500
  513. 5060 IFFL=1THEN5220
  514. 5070 GOTO4900
  515. 5080 GETA$:PRINT""TAB(17)"[198]1-8>"
  516. 5090 WAIT198,1:GETA$
  517. 5100 IFA$=CHR$(139)THEN6650
  518. 5110 IFA$=CHR$(133)THENFO=1:GOTO5160
  519. 5120 IFA$=CHR$(137)THENFO=0:GOTO5160
  520. 5130 IFA$=CHR$(135)THEN5170
  521. 5140 IFA$=CHR$(134)THENDRU=1:GOTO5160
  522. 5145 IFA$="[140]"THENCLOSE1:OPEN1,8,2,"PROTOKOL,S,A":PRINT#1,"RAUS":ZX=1:GOTO5360
  523. 5150 IFA$=CHR$(138)THENDRU=0
  524. 5160 GOSUB3960:POKE1114,42:PRINT"";:RETURN
  525. 5170 GOSUB3960:PRINT""
  526. 5180 POKE1114,42:!PRINTC$+C$+"[196]ER[160][211]YSOP[160]WILL[160][196]ICH[160]SPRECHEN,"+C$
  527. 5190 !PRINT"MELDE[160][196]ICH[160]IN[160]33"+C$+C$+C$:FO=1:GOSUB3960
  528. 5200 PRINT"":POKE1114,42
  529. 5210 !PRINT"[160][160][196]EINE[160][215]AHL[160]>":RETURN
  530. 5220 FORZ=1TOEZ:EI$(Z)="":NEXTZ:EI$(1)="...":I=1:GF=0:FE=0:POKESD,1
  531. 5230 EX=0:POKE54296,0:FV=0:FL=0:CLOSE3:IS$=RIGHT$(TI$,4):FD=0:FS=0
  532. 5240 IFVN$="GMA-BOX"THENGOTO5420
  533. 5250 CLOSE1:OPEN1,F2,5,"PROTOKOL,S,A"
  534. 5260 IFFI=1THENFI=0:GOTO5300
  535. 5270 IFFW=1THENFW=0:GOTO5320
  536. 5280 FC=0:PRINT#1,"HOER":GOTO5360
  537. 5290 FL=1:FW=1:RETURN
  538. 5300 !PRINTC$+C$+C$+C$+C$:PRINT#1,"LIMIT":ZI=1
  539. 5310 !PRINT"[160][160]***[160][218][160][197][160][201][160][212][160][204][160][201][160][205][160][201][160][212][160]***"
  540. 5320 !PRINTC$+C$+C$+C$+"[212]SCHUESS,[160]"+VN$
  541. 5330 !PRINTC$+C$+"[194]IS[160]BALD."+C$
  542. 5340 IFZI=1THENZI=0:GOTO5360
  543. 5350 PRINT#1,"LOFF"
  544. 5360 HH$=H$:MM$=M$:PRO=1:GOSUB630:PRO=0
  545. 5370 PRINT#1,DT$+" "+HH$+"."+MM$+" - "+H$+"."+M$
  546. 5380 IFZX=0THEN:!PRINTC$+"[197]S[160]IST[160]":GOSUB630:!PRINTC$+"[204]OGOFF[160]RUNNING"+C$+C$
  547. 5390 FORT=1TO5000:NEXT:ZX=0:PRINT#1,VN$::PRINT#1,"-------------------":CLOSE1
  548. 5395 POKEER,PEEK(ER) OR 4
  549. 5400 OPEN1,F2,15,"S:CALLERS":CLOSE1:OPEN1,F2,3,"CALLERS,S,W":PRINT#1,CA:CLOSE1
  550. 5410 IFMSG=1THENMSG=0:OPEN1,F2,15,"S:\"+VN$:CLOSE1:GOTO5450
  551. 5420 POKE1114,32:GOTO5450
  552. 5430 DN=DN+1:IFDN>DM(DM)THENDM=DM+1:DN=1
  553. 5440 DT$=RIGHT$(STR$(DN),2)+"."+DM$(DM)+"[160]"+JR$
  554. 5450 ZD=VAL(H$):PRINT:IFAX=0THENBF=FRE(0):PRINT"[211]YSTEM[160]READY.";BF;" [198]REE"+C$
  555. 5460 IFAX=1THENAX=0:GOTO4535
  556. 5470 GOTO4512
  557. 5480 DATA32,192,128,39,32,128,43,224,256,52,32,256,52,32,256,58,128,256,52,32
  558. 5490 DATA256,43,224,256,34,192,384,-1,-1,-1
  559. 5500 DATA"[202]AN.",31,"[198]EB.",28,"[205]AERZ",31,"[193]PRIL",30,"[205]AI",31,"[202]UNI",30,"[202]ULI",31
  560. 5510 DATA"[193]UG.",31,"[211]EPT.",30,"[207]KT.",31,"[206]OV.",30,"[196]EZ.",31,"[202]AN.",31
  561. 5520 DATA133,95,134,96,76,191,163
  562. 5530 :!COFF:S4=1:!PRINTC$+C$+"1[160][196]IR"+C$+"2[160][195]OMMAND"+C$:EX=1
  563. 5540 !PRINT"3[160][198].READ"+C$+"4[160]NEW[160][198]."+C$+"5[160]NEW[160][200]ACKER"+C$
  564. 5550 !PRINT"6[160]LIMM"+C$+"7[160][196].PROT."+C$+"8[160][198].ADDR[160]CHANGE"+C$
  565. 5560 !PRINT"9[160]PROT.PRINT"+C$+"10[160][205][211][199][160]WRITE"+C$
  566. 5570 !PRINT"11[160]CONF"+C$+"12[160][197]ND"+C$
  567. 5580 !PRINTC$+C$+"[195]HOISE[160]":GOSUB220:A$=AA$
  568. 5585 IFVAL(A$)=1THENGOSUB 1:GOTO5530
  569. 5590 IFVAL(A$)<2ORVAL(A$)>12THEN5580
  570. 5600 ONVAL(A$)-1GOTO5820,5940,6150,3880,3920,3940,6610,3790,6900,6960,6050
  571. 5820 !PRINTC$+"[194]EFEHL[160]":GOSUB220:FI$=AA$
  572. 5830 IFFI$=""THEN5530
  573. 5840 !PRINTC$+"[211]ICHER[160]":GOSUB220:A$=AA$
  574. 5850 IF(A$=CHR$(74)ORA$=CHR$(106))THEN5870
  575. 5860 CLOSE1:GOTO5530
  576. 5870 OD$=FI$
  577. 5880 IFLEFT$(OD$,1)="N"ORLEFT$(OD$,1)="[206]"THEN5820
  578. 5890 CLOSE1:OPEN1,S3,15,OD$
  579. 5900 INPUT#1,FF1,FF1$,FF2,FF3
  580. 5910 !PRINTC$+STR$(FF1)+"[160]/[160]"+FF1$+"[160]/[160]"+STR$(FF2)+"[160]/[160]"+STR$(FF3)+C$
  581. 5920 IFMID$(OD$,4,1)=CHR$(57)THENFM=0
  582. 5930 GOTO5530
  583. 5940 !PRINTC$+"[206]AME[160]":ZZ=20:GOSUB7800:FF$=A$
  584. 5950 FI$=FF$+",S,R"
  585. 5960 CLOSE1:CLOSE3:OPEN1,S3,3,FI$:OPEN3,S3,15:INPUT#3,FF1,FF1$:CLOSE3:CLOSE1
  586. 5970 !PRINTC$+C$
  587. 5980 IFFF1<>0THEN:!PRINTC$+STR$(FF1)+"/"+FF1$+C$:GOTO5530
  588. 5990 IFS3=9THEN6020
  589. 6000 IF(LEFT$(FI$,1)<>"\")AND(MID$(FI$,3,1)<>" ")THEN 6080
  590. 6010 REM
  591. 6020 CLOSE1:OPEN1,S3,3,FI$
  592. 6030 GOSUB70
  593. 6040 CLOSE1:GOSUB220:GOTO5530
  594. 6050 CLOSE1:CLOSE3:CLOSE5:CLOSE6
  595. 6060 !PRINTC$+C$+"[194]OX[160]READY"+C$+C$:S4=0:BF=FRE(0)
  596. 6070 GOTO4540
  597. 6080 S0=0:CLOSE1:OPEN1,8,2,FI$
  598. 6085 !GET#1,A$,200:IFST<>0THENCLOSE1:!WAITA$+C$+"*[197][206][196]*"+C$:ZZ=1:GOSUB7800:S0=1
  599. 6087 IFS0<>0THENS0=0:GOTO 5530
  600. 6090 !WAITA$:IF RS AND 1 THEN CLOSE1:GOTO5530
  601. 6100 GOTO6085
  602. 6150 !PRINTC$+C$+"1[160]FILES"+C$+"2[160]PROT."+C$+"CHOISE[160]"
  603. 6160 GOSUB220
  604. 6170 IFAA$<"1"ORAA$>"2"THEN6220
  605. 6180 IFAA$="2"THEN6210
  606. 6190 IFAA$=""THEN6220
  607. 6200 CLOSE3:OPEN3,S3,3,"@:FILES,S,W":PRINT#3,">--------":GOTO6220
  608. 6210 CLOSE3:OPEN3,S3,3,"@:PROTOKOL,S,W":PRINT#3,">--------"
  609. 6220 CLOSE3:GOTO5530
  610. 6230 PRI=1:GF=0:I=1:EI$(1)="...":GOTO860
  611. 6240 IFDRU=1THEN6270
  612. 6250 !PRINTC$+C$+"[208]RINTING...[160][194]ITTE[160]WARTEN."
  613. 6260 SN$="[196]RUCKER":FM=FM+1:GOSUB3970:GOTO1480
  614. 6270 !PRINTC$+C$+"[208]RINTING...[160][194]ITTE[160]WARTEN."
  615. 6280 CLOSE4:OPEN4,4,7:Z=1
  616. 6290 PRINT#4:PRINT#4:PRINT#4,"--------------------------------------":PRINT#4
  617. 6300 PRINT#4,DT$:PRINT#4,"[205]SG.VON[160]"+VN$:PRINT#4
  618. 6310 IFEI$(Z)="..."ORZ>EZTHENCLOSE4:GF=0:I=1:EI$(1)="...":FS=1:GOTO1540
  619. 6320 PRINT#4,EI$(Z):EI$(Z)="":Z=Z+1:GOTO6310
  620. 6330 CLOSE1:OPEN1,F1,3,MN$(Z1,Z2)+",S,R":!PRINTC$+C$+C$
  621. 6340 !PRINTC$:GOSUB 7700:CLOSE1:!PRINTC$+C$+C$+">>[160][198]ILE[160][197]NDE[160]<<"+C$+C$:RETURN
  622. 6350 IFPRI=1THENGOTO6410
  623. 6360 !PRINTC$+C$+"[193][160][195][160][200][160][212][160][213][160][206][160][199]!!"+C$+"[212]EXT[160]NOCH[160]NICHT[160]GESPEICHERT!"+C$
  624. 6370 !PRINT"[211]OLL[160][212]EXT[160]GESPEICHERT[160]WERDEN[160]([202]/[206])"
  625. 6380 ZZ=1:GOSUB7800:IFFL=1THENFORMM=0TOEZ:EI$(MM)="":RETURN
  626. 6390 IFA$=KJ$ORA$=GJ$THENA$=KS$:GOTO1070
  627. 6400 SIC=0:A$=KQ$:GOTO1000
  628. 6410 !PRINTC$+C$+"[193][160][195][160][200][160][212][160][213][160][206][160][199]!!"+C$+"[212]EXT[160]NOCH[160]NICHT[160]GEDRUCKT!"+C$
  629. 6420 !PRINT"[211]OLL[160][212]EXT[160]GEDRUCKT[160]WERDEN[160]([202]/[206])"
  630. 6430 ZZ=1:GOSUB7800:IFFL=1THENRETURN
  631. 6440 IFA$=KJ$ORA$=GJ$THENA$=KS$:GOTO1060
  632. 6450 SIC=0:A$=KQ$:GOTO1000
  633. 6460 IFME=1THEN6480
  634. 6470 AA=54272:POKEAA+5,30:POKEAA+6,32:POKEAA+24,15
  635. 6480 READHF,NF,NW :POKEAA+5,30:POKEAA+6,32:POKEAA+24,15:
  636. 6490 IFHF<0THENRESTORE:POKEAA+4,00:RETURN
  637. 6500 POKEAA,NF:POKEAA+1,HF
  638. 6510 POKEAA+4,33
  639. 6520 FORI=1TONW:NEXTI
  640. 6530 POKEAA+4,33
  641. 6540 FORI=1TO70:NEXTI
  642. 6550 ME=1:POKEAA+4,00:RETURN
  643. 6560 CLOSE1:CLOSE3:OPEN1,F2,3,"\"+VN$+",S,R":OPEN3,F2,15:AB=0
  644. 6570 INPUT#3,AB:CLOSE3
  645. 6580 IFAB<>0THENCLOSE1:!PRINTC$+C$+"[203]EINE[160][205]SG.[160]FUER[160][196]ICH.":RETURN
  646. 6590 CLOSE1:OPEN1,F2,4,"\"+VN$+",S,R"
  647. 6600 GOSUB70:RETURN
  648. 6610 !PRINTC$+C$+"OLD[160]ADDR.[160]"+STR$(S3)+C$
  649. 6620 !PRINTC$+"NEW[160]ADR.[160]?":GOSUB220:FF9$=AA$
  650. 6630 S3=VAL(FF9$):IFS3<8ORS3>9THEN6610
  651. 6640 GOTO5530
  652. 6650 INPUT"LIMIT[160]";RN:IFRN>90ORRN<0THEN6650
  653. 6660 GOTO5160
  654. 6670 IFX=6THEN6870
  655. 6680 IFFV=1THEN:!PRINTC$+C$+"[196]U[160]MUSST[160][196]ICH[160]ZUERST[160]EINSCHREIBEN.":RETURN
  656. 6690 !PRINTC$+C$+"[208]ROGRAMME[160]ZUM[160][196][207][215][206]'[204]ADEN"+C$
  657. 6700 !PRINT"-------------------------------------"+C$+C$+C$
  658. 6710 CLOSE1:OPEN1,F3,3,"FILEBOX,S,R":II=1
  659. 6720 IFST=64THEN6740
  660. 6730 INPUT#1,II$(II):II=II+1:GOTO6720
  661. 6740 II=II-1:CLOSE1:FORIJ=1TOII
  662. 6750 !PRINTSTR$(IJ)+"[160]"+II$(IJ)+C$
  663. 6760 NEXTIJ:!PRINTC$+C$+"[160][160][160][196]EINE[160][215]AHL[160]>"
  664. 6770 ZZ=3:GOSUB 7800:IFFL=1THENRETURN
  665. 6780 IFA$=""ORA$=KQ$ORA$=GQ$THENCLOSE1:RETURN
  666. 6790 IK=VAL(A$):IFIK<1ORIK>IITHEN:!PRINT"-->":GOTO6770
  667. 6800 !PRINTC$+C$+II$(IK)+C$+C$
  668. 6810 !PRINT"READY[160]?[160](J/N)":ZZ=1:GOSUB 7800:IFFL=1THENRETURN
  669. 6820 IFA$=KJ$ORA$=GJ$THEN6850
  670. 6830 IFA$=CHR$(13)THEN6810
  671. 6840 RETURN
  672. 6850 OPEN1,F3,3,II$(IK)+",S,R":!PRINTC$+C$+C$+C$
  673. 6860 !PRINTC$:GOSUB 7700:CLOSE1:!PRINTC$+C$+C$+C$+"--[160][198]ILE[160][197]NDE[160]--"+C$+C$:RETURN
  674. 6870 !PRINTC$+C$+"[211]YS[207]P'S[160][201]NFOECKE"+C$
  675. 6880 !PRINT"-----------------"+C$+C$+C$
  676. 6890 CLOSE1:OPEN1,F3,3,"ANLEITUNG,S,R":II=1:GOTO6720
  677. 6900 GOSUB2370
  678. 6910 SN$=NA$:GOSUB860:FP=0:GOTO5530
  679. 6950 CLOSE1:OPEN1,F2,3,"ANFANG,S,R":!PRINTC$+C$+C$:GOSUB 7700:CLOSE1:RETURN
  680. 6960 GOSUB590:GOTO5530
  681. 6970 CLOSE1:OPEN1,F2,3,"HACKERPASS,S,R"
  682. 6980 IFST=64THENCLOSE1:!PRINTC$+C$:GOTO7020
  683. 6990 INPUT#1,HA$
  684. 7000 IFHA$=VN$THENCLOSE1:DA=1:GOTO3070
  685. 7010 GOTO6980
  686. 7020 !PRINT"[203]EIN[160][218]UTRITT[160]ZUR[160][200]ACKER-[197]CKE!"
  687. 7025 !PRINTC$+"[193]NMELDUNG[160]IN[160][211]EITE[160]13[160]ODER[160]52"+C$
  688. 7030 !PRINT"[205]IT[160]VOLLST.[160][193]DRESSE!"+C$+C$:RETURN
  689. 7040 CLOSE1:OPEN1,F1,3,MN$(Z1,Z2)+",S,R":!PRINTC$+C$:US=1
  690. 7050 POKECX,0:!PRINTC$+C$+C$:A$=""
  691. 7060 D$="":INPUT#1,D$:D$=A$+D$:S1=ST
  692. 7070 IFS1<>0ORPEEK(CX)=255THEN:!PRINTC$+C$+">>[160][198]ILE[160][197]NDE[160]<<":CLOSE1:RETURN
  693. 7080 !PRINTC$+C$+C$:INPUT#1,F$:GOSUB 7700:IFPEEK(CX)=255THEN7070
  694. 7090 GET#1,A$:A$="":GET#1,A$:S1=ST
  695. 7100 IFS1<>0THEN7070
  696. 7110 !PRINTC$+">"+C$:IF(PEEK(ER)AND16)=0THENFL=1:FC=1:CLOSE1:RETURN
  697. 7120 GOTO7060
  698. 7500 IFFV=1THEN:!PRINTC$+C$+"[196]U[160]MUSST[160][196]ICH[160]ZUERST[160]EINTRAGEN!"+C$+C$:RETURN
  699. 7510 !PRINTC$+C$+C$+"[193]NMELDUNG[160][200]ACKER"+C$+"----------------"+C$
  700. 7520 !PRINTC$+"[206]AME.......>":ZZ=30:GOSUB 7800:A1$=A$:IFFL=1THENRETURN
  701. 7540 !PRINTC$+"[214]ORNAME....>":ZZ=30:GOSUB 7800:A2$=A$:IFFL=1THEN RETURN
  702. 7550 !PRINTC$+"[211]TRASSE/NR.>":ZZ=30:GOSUB 7800:A3$=A$:IFFL=1THENRETURN
  703. 7560 !PRINTC$+"[208][204][218]/[207]RT....>":ZZ=30:GOSUB 7800:A4$=A$:IFFL=1THENRETURN
  704. 7570 !PRINTC$+"[212]EL(VORW.!)>":ZZ=30:GOSUB 7800:A5$=A$:IFFL=1THENRETURN
  705. 7580 IF(A1$="")OR(A2$="")OR(A3$="")OR(A4$="")OR(A5$="")THENRETURN
  706. 7590 CLOSE1:OPEN1,8,2,"ANMELDUNG,S,A"
  707. 7600 PRINT#1,VN$:PRINT#1,PA$:PRINT#1:PRINT#1,A1$:PRINT#1,A2$:PRINT#1,A3$
  708. 7610 PRINT#1,A4$:PRINT#1,A5$:PRINT#1,">--------"
  709. 7620 CLOSE1:!PRINTC$+C$+"[196]ATEN[160]SIND[160]GESAVED"+C$+"[215]IRST[160]IN[160]DEN[160]NAECHSTEN[160][212]AGEN"
  710. 7630 !PRINTC$+"EINGETRAGEN."+C$:OPEN1,8,2,"ANM.HACKER,S,A":PRINT#1,VN$:CLOSE1
  711. 7640 RETURN
  712. 7700 REM FILE READ
  713. 7710 !GET#1,A$,255,255:IF(RS AND 4)=0THEN:!WAIT A$:RETURN
  714. 7720 !WAITA$,1,1,1
  715. 7725 IF RS AND 2 THENGOSUB 7740:RETURN
  716. 7727 IF RS AND 1 THEN 7730
  717. 7729 IFST=0THENGOTO 7710
  718. 7730 POKE CX,255:S1=66:RETURN
  719. 7740 !GET#1,A$,255,255:IF((RS AND 4)<>0) AND ST=0 THEN 7740
  720. 7750 RETURN
  721. 7800 REM INPUT
  722. 7805 IF(PEEK(ER)AND16)=0 THENFL=1:FC=1:RETURN
  723. 7810 IFZZ=0THENZZ=1:
  724. 7815 !INPUT A$,ZZ:IFRSAND 128 THEN FL=1:FC=1:RETURN
  725. 7820 IF(PEEK(ER) AND 16)=0 THEN FL=1:FC=1:RETURN
  726. 7830 FL=0:FC=0:RETURN
  727.